Voyager Presents CD-ROM's That Matter/Voyager Presents CD-ROM's That Matter.iso/pc/demos/gouldwin/gould.dir/00063.ls

Text File | 1994-11-09 | 647 b | 46 lines

on enterFrame
  cursor(200)
end

on waitQT chan
  if the movieRate of sprite chan = 1 then
    go(the frame)
  end if
end

on waitSound chan
  if soundBusy(chan) = 1 then
    go(the frame)
  end if
end

on myWait theTicks
  set myTicks to theTicks + the ticks
  repeat while myTicks >= the ticks
  end repeat
end

on startMovie
  unLoadCast()
  cursor(200)
end

on QTvolume chan, theLevel
  set the volume of sprite chan to theLevel
end

on waiting theTicks
  repeat while theTicks >= the timer
    updateStage()
  end repeat
end

on keyDown
  global autoPlaying
  set autoPlaying to 0
  sound stop 1
  sound stop 2
  unLoadCast()
  play done
end